(describe-function-1): Put empty line before "Not documented" text.
authorJuanma Barranquero <lekktu@gmail.com>
Wed, 17 Jul 2002 08:11:15 +0000 (08:11 +0000)
committerJuanma Barranquero <lekktu@gmail.com>
Wed, 17 Jul 2002 08:11:15 +0000 (08:11 +0000)
lisp/help-fns.el

index c79aa356b78352c45bdfc7866268d688fac70703..7fe85001c3e2332a32d07280f4c842139d4212ba 100644 (file)
@@ -316,9 +316,8 @@ Return (USAGE . DOC) or nil if there's no usage info."
          (princ (if (stringp (car obsolete)) (car obsolete)
                   (format "use `%s' instead." (car obsolete))))
          (terpri)))
-      (if doc
-         (progn (terpri) (princ doc))
-       (princ "Not documented.")))))
+      (terpri)
+      (princ (or doc "Not documented.")))))
 
 \f
 ;; Variables